home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 1995 #5 & #6 / Amiga Plus CD - 1995 - No. 5 and 6.iso / pd / netz / mailfilter / theanswer / header_filter.ta3 < prev    next >
Text File  |  1994-12-17  |  2KB  |  78 lines
  1. /* Arexx-Script für TheAnswerIII und MailFilter */
  2.  
  3. /*
  4. ** $VER: Header_Filter.TA3 1.1 (18.12.94)
  5. **
  6. ** Übernimmt eine Headerzeile aus der Mail unterm Cursor in den Header-
  7. ** filter, wenn die Headerzeile länger als 80 Zeichen ist wird ihr ein
  8. ** '#?' oder '*' angehängt. In der Headerzeile vorkommende Jokerzeichen
  9. ** werden durch Voranstellen eines Hochkommas ausgeschaltet. Nach
  10. ** erfolgreicher Übernahme in den Filter öffnet sich das Fenster und der
  11. ** gerade übernommene Eintrag ist selektiert.
  12. */
  13.  
  14. /* Ergebnisse anfordern */
  15.  
  16. OPTIONS RESULTS
  17.  
  18. /* Name des Screens auslesen */
  19.  
  20. PARSE ARG screenname " " datei
  21.  
  22. /* Testen, ob MailFilter gestartet ist. Wenn nicht, dann jetzt starten */
  23.  
  24. IF ~SHOW(PORTS,'MAILFILTER') THEN DO
  25.    ADDRESS COMMAND
  26.    'run >NIL: <NIL: MAILFILTER:MailFilter'
  27.  
  28.    DO 3 WHILE ~SHOW(PORTS,'MAILFILTER')
  29.       'WaitForPort MAILFILTER'
  30.    END
  31.  
  32.    IF rc = 5 THEN DO
  33.       SAY 'Kann MailFilter nicht starten!'
  34.       EXIT(10)
  35.    END
  36. END
  37.  
  38. /* Aktuellen TheAnswer-Screen einstellen */
  39.  
  40. ADDRESS MAILFILTER
  41.  
  42. GETATTR screen
  43.  
  44. IF result ~= screenname THEN DO
  45.    DEACTIVATE
  46.    SETATTR screen screenname
  47. END
  48.  
  49. /* Einen Header aus der Mail auswählen */
  50.  
  51. SELECTHEADER datei
  52.  
  53. IF rc ~= 0 THEN DO
  54.    EXIT(0)
  55. END
  56.  
  57.  
  58. /* Header in den Headerfilter übernehmen und das */
  59. /* Fenster auf dem aktuellen TheAnswer-Screen öffnen */
  60.  
  61. headerzeile.pattern    = result
  62. headerzeile.emppattern = ''
  63. headerzeile.newsgroup  = ''
  64. headerzeile.mailtype   = ''
  65. headerzeile.action     = ''
  66.  
  67. ADDITEM TO header STEM headerzeile CONVERT POPUP
  68.  
  69. /* Prefs speichern */
  70.  
  71. IF rc = 0 THEN
  72.    SAVE
  73.  
  74. /* Beenden */
  75.  
  76. EXIT(0)
  77.  
  78.